﻿Public Class clsInhGatunek
    Inherits clsGatunek

#Region "Attributes"
    Dim mvarStop As New clsStop
#End Region

#Region "Properties"

    Public Property NazwaStop() As clsStop
        Get
            Return mvarStop
        End Get
        Set(ByVal value As clsStop)
            mvarStop = value
        End Set
    End Property

#End Region

#Region "Methods"

    Public Sub New()
        mvarStop = New clsStop
    End Sub

    Public Sub New(ByVal ID As Integer, ByVal lvarDbHolder As clsDataBase)

        MyBase.New(ID, lvarDbHolder, VAR_ERROR_HANDLER)
        mvarStop = New clsStop(MyBase.StopId, lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub

    Public Overloads Sub Save(ByVal lvarDbHolder As clsDataBase)

        MyBase.Save(lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub
#End Region

End Class
